10 POKE53280,0:POKE53281,0:POKE646,1:A$="[183][197][196][192][198][210][175]"
20 FORI=1TO7:A$(I)="  ":FORJ=1TO5:A$(I)=A$(I)+MID$(A$,I,1):NEXT:NEXT
30 FORI=1TO7:PRINTA$(I),A$(I),A$(I),A$(I):NEXT
40 FORI=7TO1STEP-1:PRINTA$(I),A$(I),A$(I),A$(I):NEXT:GOTO30